home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 2 #6 / Commodore_Disk_User_Vol.2_6_1989_-.d64 / hidden graphics2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  83 lines
  1. 1000 rem *********************
  2. 1010 rem * hidden graphics 2 *
  3. 1020 rem *   by mike benn    *
  4. 1030 rem *      demo         *
  5. 1040 rem *                   *
  6. 1050 rem *********************
  7. 1060 rem
  8. 1070 rem load machine code
  9. 1080 rem
  10. 1090 x=x+1:ifx=1thenload"hg2 mc",8,1
  11. 1100 rem
  12. 1110 rem poke character data
  13. 1120 rem
  14. 1130 gosub1670
  15. 1140 rem
  16. 1150 rem main program
  17. 1160 rem
  18. 1170 rem load screen 1
  19. 1180 rem
  20. 1190 sys52600,"hg data block",8,41000
  21. 1200 rem
  22. 1210 rem load screen 2
  23. 1220 rem
  24. 1230 sys52600,"hg data block",8,42000
  25. 1240 rem
  26. 1250 rem multicolour
  27. 1260 rem
  28. 1270 sys52603,40800,1,28,12,11,15,0
  29. 1280 rem
  30. 1290 fori=0to4:sys52606,i,1,8:next
  31. 1300 getk$:ifk$=""then1300
  32. 1310 fori=0to4:sys52606,i,i+1,8:next
  33. 1320 getk$:ifk$=""then1320
  34. 1330 fori=8to15:sys52606,0,1,i
  35. 1340 getk$:ifk$=" "then1370
  36. 1350 forde=0to150:next:next
  37. 1360 goto1330
  38. 1370 fori=1to5:sys52606,4,i,8
  39. 1380 forde=0to150:next:next
  40. 1390 getk$:ifk$=" "then1440
  41. 1400 goto1370
  42. 1410 rem
  43. 1420 rem hires
  44. 1430 rem
  45. 1440 sys52603,40800,0,28,12,11,15,0
  46. 1450 fori=0to4:sys52606,i,i+1,i+1:next
  47. 1460 getk$:ifk$=""then1460
  48. 1470 rem
  49. 1480 rem **************************
  50. 1490 rem * to contol next part of *
  51. 1500 rem * demo press these keys  *
  52. 1510 rem *                        *
  53. 1520 rem * press '+' to increase  *
  54. 1530 rem * press '-' to decrease  *
  55. 1540 rem * press space to escape  *
  56. 1550 rem **************************
  57. 1560 rem
  58. 1570 x=1
  59. 1580 sys52603,40800,0,28,12,11,15,0
  60. 1590 getk$:ifk$="+"thenx=x+1
  61. 1600 ifk$="-"thenx=x-1
  62. 1610 ifk$=" "then1650
  63. 1620 ifx<1thenx=1
  64. 1630 sys52606,2,x,8
  65. 1640 goto1590
  66. 1650 sys52609
  67. 1660 end
  68. 1670 bl=8:ln=1720:sa=12288
  69. 1680 forl=0tobl:cx=0:ford=0to15
  70. 1690 reada:ifa>255thenprint"number to large";ln+(l*10):stop
  71. 1700 cx=cx+a:pokesa+l*16+d,a:nextd
  72. 1710 read a:if a><cx thenprint"error in line";ln+(l*10):stop
  73. 1720 nextl:return
  74. 1730 data 0,0,85,85,85,85,85,85,255,255,170,170,170,170,170,170,2040
  75. 1740 data 171,171,107,107,91,91,87,87,255,255,106,106,90,90,86,86,1986
  76. 1750 data 171,171,171,171,171,171,171,171,255,255,171,171,171,171,171,171,2904
  77. 1760 data 85,85,85,85,85,85,85,85,0,12,12,60,12,12,12,12,812
  78. 1770 data 12,12,12,63,0,0,0,0,60,60,195,195,3,12,12,48,684
  79. 1780 data 48,192,255,255,0,0,0,0,0,60,60,195,195,3,60,60,1383
  80. 1790 data 3,195,195,60,60,0,0,0,0,12,12,60,60,60,204,204,1125
  81. 1800 data 204,255,255,12,0,0,0,0,0,255,255,192,192,60,60,3,1743
  82. 1810 data 195,195,60,60,0,0,0,0,0,0,0,0,0,0,0,0,510
  83.